home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Kontenliste.accpri < prev    next >
Text File  |  1999-03-27  |  4KB  |  202 lines
  1. 1$VER: Kontenliste 1.01 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.01
  6. %%Title: (MT-RechnungIII - Kontenliste)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: Label
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42.  
  43. /DokumentRandYOriginal DokumentRandY def
  44. %%EndSetup
  45.  
  46. %%BeginnResource
  47. /reencodedict 5 dict def
  48. /ReEncode
  49. {
  50.      reencodedict begin
  51.      /newencoding exch def
  52.      /newfontname exch def
  53.      /basefontname exch def
  54.  
  55.      /basefontdict basefontname findfont def
  56.  
  57.      /newfont basefontdict maxlength dict def
  58.  
  59.      basefontdict
  60.      { exch dup dup /FID ne exch /Encoding ne and
  61.           { exch newfont 3 1 roll put }
  62.           { pop pop }
  63.           ifelse
  64.      } forall
  65.      newfont /FontName newfontname put
  66.      newfont /Encoding newencoding put
  67.      newfontname newfont definefont pop
  68.      end
  69. } def
  70.  
  71. /ISOLatin8Encoding
  72. [
  73.     ISOLatin1Encoding 0 164 getinterval aload pop
  74.     /euro
  75.     ISOLatin1Encoding 165 91 getinterval aload pop
  76. ] def
  77. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  78. /getsymbol {findfont exch scalefont def} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times10Zeile 10 def
  83. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  84. /Times24Zeile 24 def
  85. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  86.  
  87. /Seite 1 def
  88. /SeitenNr 4 string def
  89.  
  90. %% Definition der Überschrift
  91. /Ueberschrift
  92. {
  93.     /BoxX1 DokumentRandX def
  94.     /BoxX2 486 def
  95.     /BoxY1 DokumentRandY 2 sub def
  96.     /BoxY2 Times10Zeile def
  97.  
  98.     0.9 setgray
  99.     BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  100.     0.0 setgray
  101.     BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  102.  
  103.     DokumentRandX 3 add DokumentRandY moveto
  104.     (KontoNr) show
  105.  
  106.     DokumentRandX 60 add DokumentRandY moveto
  107.     (Kontenbezeichnung) show
  108.  
  109.     DokumentRandX 230 add DokumentRandY moveto
  110.     (Kontengruppe) show
  111.  
  112.     DokumentRandX 420 add DokumentRandY moveto
  113.     (Typ) show
  114.  
  115.     DokumentRandX DokumentRandY moveto
  116.     (MWSt) dup stringwidth
  117.     pop 480 exch sub
  118.     DokumentRandX add DokumentRandY moveto show
  119.  
  120.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  121.  
  122. } def
  123.  
  124. %% Ausgab der Kopfdaten
  125.  
  126. Times24 setfont
  127.  
  128. (Kontenliste) dup stringwidth pop
  129. PageSize 0 get exch sub 2 div cvi DokumentRandY moveto show
  130.  
  131. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  132.  
  133. Times10 setfont
  134.  
  135. Ueberschrift
  136.  
  137. Konten
  138. {
  139.     /pos exch def
  140.  
  141.     80 DokumentRandY gt
  142.     {
  143.         DokumentRandX 450 add 50 moveto
  144.         (Seite: ) show
  145.         Seite SeitenNr cvs show
  146.         showpage
  147.  
  148.         /DokumentRandY DokumentRandYOriginal def
  149.         Ueberschrift
  150.         Seite 1 add /Seite exch def
  151.     } if
  152.  
  153.     DokumentRandX 3 add DokumentRandY moveto
  154.     pos 1 get show
  155.  
  156.     DokumentRandX 60 add DokumentRandY moveto
  157.     pos 2 get show
  158.  
  159.     DokumentRandX 230 add DokumentRandY moveto
  160.     KontenGruppenBezeich pos 5 get get show
  161.  
  162.     DokumentRandX 420 add DokumentRandY moveto
  163.     pos 3 get /typ exch def
  164.     typ 0 eq
  165.     {
  166.         (E) show
  167.     }
  168.     {
  169.         typ 1 eq
  170.         {
  171.             (A) show
  172.         }
  173.         {
  174.             typ 2 eq
  175.             {
  176.                 (N) show
  177.             }
  178.             {
  179.                 (G) show
  180.             } ifelse
  181.         } ifelse
  182.     } ifelse
  183.  
  184.     DokumentRandX DokumentRandY moveto
  185.     pos 4 get dup stringwidth
  186.     pop 480 exch sub
  187.     DokumentRandX add DokumentRandY moveto
  188.     show
  189.  
  190.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  191.  
  192. } forall
  193.  
  194. DokumentRandX 450 add 50 moveto
  195. (Seite: ) show
  196. Seite SeitenNr cvs show
  197.  
  198. showpage
  199.  
  200. %%Trailer
  201. clear
  202.